|
CATIA V5 Programmierung : interne Befehlsbezeichnung ermitteln
roccat am 10.08.2011 um 14:55 Uhr (0)
Hi,den internen Namen kannst du über eine Selection, ModelElement und InternalName holen.Code:Sub InternalName()Dim MySelection As SelectionDim MyDocument As PartDocumentDim MyPart As PartSet MyDocument = CATIA.ActiveDocumentSet MyPart = MyDocument.PartSet MySelection = MyDocument.SelectionMySelection.ClearMySelection.Add MyPart.OriginElements.PlaneXYMsgBox MySelection.Item(1).Value.GetItem("ModelElement").InternalNameEnd SubmfGMario
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : .NET , GetActiveObject abbrechen
roccat am 10.03.2011 um 12:42 Uhr (0)
Hallo CAMiCADse,nur ein Vorschlag gibt bestimmt eine bessere Lösung.Code: Public Catia Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Interval = 5000 5 sek warten Timer1.Enabled = True BackgroundWorker1.WorkerSupportsCancellation = True BackgroundWorker1.RunWorkerAsync() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Timer1.Enabl ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Product als 3dxml Speichern
roccat am 10.03.2011 um 11:36 Uhr (0)
Hallo Gemeinde,ich habe eigentlich eine recht einfache Aufgabe. (So dachte ich...)Ich wollte mein geöffnetes Product als 3dxml abspeichern und dachte das es ganz einfach mit "SaveAs" Funktioniert und ich einfach die "*.3dxml" Erweiterung anhänge und Catia den Rest macht. Dem ist aber nicht so, da sich nach dem speichern ausser der Erweiterung an der Datei nichts ändert.Meine Fragen sind nun, kann ich über VBA-Scipt überhaupt als 3dxml speichern oder nicht? Wenn ja,wie? Brauche Ich eine extra Lizenz?Läuft d ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schriftarten auflisten
roccat am 22.10.2015 um 10:14 Uhr (1)
Hallo,gibt es eine Möglichkeit alle Catia und/oder alle Windows Schriftarten aufzulisten?Dachte dazu hier im Forum etwas dazu gelesen zu haben. Ich finde es leider nicht mehr.Vielen DankmfGMario------------------Wenn das die Lösung sein soll,will ich mein Problem zurück !!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ersetzen der
roccat am 14.06.2010 um 10:37 Uhr (0)
Hallo,ich weiss nicht ob ich dich richtig verstanden habe aber evtl. hilft die das hier. Musst natürlich noch Punkte Namen und Geometrical Set anpassen. Kannst natürlich auch eine UserSelection einbauen um an die Punkte zu kommen.Option ExplicitSub CATMain()Dim MyPartDocument As PartDocumentDim MyPart As PartDim MyHybShapeFactory As HybridShapeFactoryDim MyHybShapeTranslate As HybridShapeTranslateDim Reference1 As ReferenceDim Reference2 As ReferenceDim Reference3 As ReferenceDim MyHyb ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Erzeugung eines positionierten Sketch
roccat am 14.06.2010 um 11:11 Uhr (1)
Also ich habe das mal geteste,ist wirklich so wie vermutet.Der Sketchtyp ist und bleibt auch mit dem Code aus dem o.g. Link ein "Sliding Sketch"welchen wir bei uns aber nicht verwenden dürfen.CATIA.StartCommand "Positioned Sketch" - ruft mir zwar das Fenster auf bringt mich aber auch nicht wirklich weiter.Evtl. hat noch jemand eine noch Idee zu diesen Thema.THXMario
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Umbenennen von Parts
roccat am 14.06.2010 um 12:40 Uhr (0)
Hallo Struppi,du kannst ja bei einem Fehler das entsprechende Part in einer Selection reinhauen und ein center graph draufmachen. Ich gebe sowas auch gern in einer listbox aus und schreibe die Fehlerhaften Producte in ein Array dan kannst du alle fehlerhaften elemente Auflisten und Click im Listeneintrag das passende Product abrufen musst das Array bloss Global Dimen. Der Möglichkeiten gibts da viele.z.B.Function traverse(Prod, origstr, newstr)Dim MyDocument As DocumentDim MySelection As SelectionSet MyDoc ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Umbenennen von Parts
roccat am 14.06.2010 um 14:13 Uhr (0)
Sry Catscript, das hab ich nicht gesehen.bei der Error abfrage kannst du dann reinschreiben was du willst, das "exit function" kannst du auch weglassen dann überspringt er den Fehler und arbeitet alles weitere ab. Dann wäre es aber sinnvoll alle Fehlerhaften Dokumente zum Schluss aufzulisten.dann versuchs mal so:Function traverse(Prod, origstr, newstr)Set MyDocument = CATIA.ActiveDocumentSet MySelection = MyDocument.SelectionErr.ClearOn Error Resume Next Set refp = Prod.ReferenceProduct If InStr(refp.Name, ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Ersetzen der
roccat am 14.06.2010 um 16:03 Uhr (0)
Hallo,da habe ich dich falsch verstanden. Ich dachte an eine Translation und nicht an den Austausch des Referencepunktes. Außerdem schreibst du ja Catscript das hab ich auch übersehen.Die Punkte kannst du auf Verschiedene Art holen (kommt auf die Rahmenbedingungen an)-search (muß der Name der Punkte immer gleich sein)-Userselection (Benutzer selektiert die Punkte)-oder wenn die Geosets immer Gleich sind über die HybridBodiesVersuchs mal damit: (evtl. Name der Punkte ändern, war bissl schlecht auf dem Bild ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : VBA ExecuteScript in VBA
roccat am 05.07.2010 um 13:02 Uhr (0)
Hallo cmbhab mal folgenden Code aus meinem Projekt kopiert.Dim SServDim sPath As StringDim sType As StringDim sModul As StringDim sSub As StringDim sScriptName As StringDim Params()Dim i As Integeri = FrMain.LBox.ListIndexsType = MyArr(3, i)Set SServ = CATIA.SystemServiceFrMain.HideSelect Case sType Case "VBAProject" sPath = MyArr(1, i) & "" & MyArr(2, i) C:TempTest.catvba sModul = MyArr(4, i) Modul1 sSub = MyArr(5, i) CatMain Call SServ.ExecuteScript(sPath ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro unterbrechen
roccat am 29.07.2010 um 16:03 Uhr (0)
Hallo tberger,ich würde mich den Vorrednern anschliessen und das Sheet per Makro kopieren. Kannst das ja mal so versuchen, evtl hilfts. Ist aber vba kein catscript sollte sich aber auch umschreiben lassen.Option ExplicitSub ViewCopy()Dim MyDrawing As DrawingDocumentDim MySheets As DrawingSheetsDim MyOldSheet As DrawingSheetDim MyNewSheet As DrawingSheetDim MyViews As DrawingViewsDim MyView As DrawingViewDim MySelection As SelectionDocument holenSet MyDrawing = CATIA.ActiveDocumentSelection holen und ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA & Dateiname bzw. Dateiendung auslesen
roccat am 10.08.2010 um 14:46 Uhr (0)
Ok,also nach dem öffnen einer *.Iges Datei ist diese ein Neues CatPart.Kannst du das öffnen der Dokumente über dein Makro machen? Dann hast du den alten Pfadnamen und Endung.oder ich kam überCatia.Activewindow.Namenoch an den Part1.iges-Namen (muß aber wohl im eigenen Fenster geöffnet sein.)mfGMario [Diese Nachricht wurde von roccat am 10. Aug. 2010 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA & Dateiname bzw. Dateiendung auslesen
roccat am 10.08.2010 um 09:00 Uhr (0)
Hallo Maetes,hab keine Ahnung ob es dir hilft aber den DokumentenTyp prüfe ich immer mit Typename. Wie es mit Step oder Iges... verhält mußt du mal testen (siehst du was er bei case else ausgibt) aber ich glaube tberger hat recht da Catia das beim laden bereits wandelt.mfGMarioOption ExplicitSub CatMain()Dim MyDocuments As DocumentsDim MyDocument As DocumentSet MyDocuments = CATIA.DocumentsSchleife über alle documenteFor Each MyDocument In MyDocuments Typenname abfragen Select Case TypeName(MyDocument) ...
|
| In das Form CATIA V5 Programmierung wechseln |
